/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / 8_09

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 1c 02 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 44 65 52 65 66 00 00 | 00 00 00 00 ff ff ff ff |.DeRef..|........|
|00000070| 46 dc fd ff 34 9b 0d 10 | 00 00 00 00 ff ff ff ff |F...4...|........|
|00000080| b4 00 00 80 82 41 64 64 | 00 3a 3a 52 61 00 00 00 |.....Add|.::Ra...|
|00000090| 83 01 00 00 46 de fd ff | e1 39 bd 00 03 00 8f 7f |....F...|.9......|
|000000a0| 83 01 00 00 24 00 00 00 | 82 63 31 5f 41 64 64 00 |....$...|.c1_Add.|
|000000b0| 61 00 00 00 16 02 00 00 | 46 de fd ff 4a 7f bf 00 |a.......|F...J...|
|000000c0| 03 00 88 ae 16 02 00 00 | cb 01 00 00 82 63 32 5f |........|.....c2_|
|000000d0| 41 64 64 00 61 00 00 00 | 1d 02 00 00 46 de fd ff |Add.a...|....F...|
|000000e0| 22 82 bf 00 03 00 49 2b | 1d 02 00 00 05 04 00 00 |".....I+|........|
|000000f0| 00 00 52 41 4d 3a 3a 52 | 61 00 00 00 99 0d 00 00 |..RAM::R|a.......|
|00000100| 46 ff ff ff 81 6e fa 07 | 03 00 12 61 99 0d 00 00 |F....n..|...a....|
|00000110| cb 08 00 00 82 52 65 63 | 75 72 73 69 6f 6e 00 00 |.....Rec|ursion..|
|00000120| ff ff ff ff 46 dc fd ff | 48 9c 0d 10 00 00 00 00 |....F...|H.......|
|00000130| ff ff ff ff 8c 01 00 80 | 82 63 5f 6e 43 72 00 00 |........|.c_nCr..|
|00000140| d4 ff ff ff ed 0d 00 00 | 45 de fd ff 06 27 b9 ff |........|E....'..|
|00000150| 03 00 8e c8 ed 0d 00 00 | 46 06 00 00 82 6e 43 72 |........|F....nCr|
|00000160| 5f 31 00 00 d4 ff ff ff | 95 01 00 00 45 de fd ff |_1......|....E...|
|00000170| 13 1e af ff 03 00 02 fe | 95 01 00 00 57 14 00 00 |........|....W...|
|00000180| 82 6e 43 72 5f 32 00 00 | d4 ff ff ff 96 01 00 00 |.nCr_2..|........|
|00000190| 45 de fd ff a8 01 b7 ff | 03 00 5f 45 96 01 00 00 |E.......|.._E....|
|000001a0| 10 16 00 00 82 4e 65 65 | 64 6c 65 73 00 ff ff ff |.....Nee|dles....|
|000001b0| 54 04 00 00 46 fb ff ff | 9c 9f 39 00 03 00 f5 42 |T...F...|..9....B|
|000001c0| 54 04 00 00 ca 17 00 00 | 00 ff ff ff ee 00 00 00 |T.......|........|
|000001d0| d4 ff ff ff 21 01 5d 07 | c0 62 1a 02 00 00 00 00 |....!.].|.b......|
|000001e0| 12 00 00 00 ee 00 00 00 | 84 d6 de fd 82 52 69 73 |........|.....Ris|
|000001f0| 63 50 43 00 00 00 00 00 | ff ff ff ff 46 dc fd ff |cPC.....|....F...|
|00000200| bf 9d 0d 10 00 00 00 00 | ff ff ff ff f8 01 00 80 |........|........|
|00000210| 82 52 6f 77 4e 6f 00 00 | 50 ff ff ff 6b 01 00 00 |.RowNo..|P...k...|
|00000220| 46 21 fd ff 36 96 7d 08 | 03 00 72 04 6b 01 00 00 |F!..6.}.|..r.k...|
|00000230| 42 1c 00 00 00 00 00 00 | ee 00 00 00 50 ff ff ff |B.......|....P...|
|00000240| 06 01 00 00 7c ff ff ff | 38 00 4f 07 00 0d 00 00 |....|...|8.O.....|
|00000250| 00 00 00 00 bc fc ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 41 64 64 |....File|Data.Add|
|00000360| 00 3a 3a 52 61 00 00 00 | 83 01 00 00 46 de fd ff |.::Ra...|....F...|
|00000370| e1 39 bd 00 03 00 8f 7f | 25 4f 50 25 56 53 34 2e |.9......|%OP%VS4.|
|00000380| 31 33 20 28 32 38 2d 41 | 70 72 2d 39 32 29 2c 20 |13 (28-A|pr-92), |
|00000390| 47 65 72 61 6c 64 20 4c | 20 46 69 74 74 6f 6e 2c |Gerald L| Fitton,|
|000003a0| 20 52 34 30 30 30 20 35 | 39 36 36 20 39 39 30 34 | R4000 5|966 9904|
|000003b0| 20 39 39 33 38 20 0a 25 | 4f 50 25 57 52 4e 0a 25 | 9938 .%|OP%WRN.%|
|000003c0| 4f 50 25 44 50 30 0a 25 | 4f 50 25 49 52 4e 0a 25 |OP%DP0.%|OP%IRN.%|
|000003d0| 4f 50 25 50 4c 30 0a 25 | 4f 50 25 48 4d 30 0a 25 |OP%PL0.%|OP%HM0.%|
|000003e0| 4f 50 25 46 4d 30 0a 25 | 4f 50 25 42 4d 30 0a 25 |OP%FM0.%|OP%BM0.%|
|000003f0| 4f 50 25 4c 4d 34 0a 25 | 4f 50 25 50 54 31 0a 25 |OP%LM4.%|OP%PT1.%|
|00000400| 4f 50 25 50 44 50 69 70 | 65 4c 69 6e 65 0a 25 4f |OP%PDPip|eLine.%O|
|00000410| 50 25 57 43 36 2c 31 30 | 31 32 2c 34 34 2c 32 37 |P%WC6,10|12,44,27|
|00000420| 32 2c 34 2c 31 2c 30 2c | 30 0a 25 43 4f 3a 41 2c |2,4,1,0,|0.%CO:A,|
|00000430| 35 2c 30 25 0a 25 56 25 | 25 52 25 31 0a 25 56 25 |5,0%.%V%|%R%1.%V%|
|00000440| 25 52 25 41 32 0a 25 43 | 4f 3a 42 2c 32 2c 30 25 |%R%A2.%C|O:B,2,0%|
|00000450| 0a 2b 0a 2b 0a 25 43 4f | 3a 43 2c 32 2c 30 25 0a |.+.+.%CO|:C,2,0%.|
|00000460| 25 56 25 25 52 25 32 0a | 25 56 25 25 52 25 43 32 |%V%%R%2.|%V%%R%C2|
|00000470| 0a 25 43 4f 3a 44 2c 32 | 2c 30 25 0a 3d 0a 3d 0a |.%CO:D,2|,0%.=.=.|
|00000480| 25 43 4f 3a 45 2c 32 2c | 30 25 0a 25 56 25 25 52 |%CO:E,2,|0%.%V%%R|
|00000490| 25 5b 63 32 5f 41 64 64 | 5d 61 64 64 5f 74 6f 67 |%[c2_Add|]add_tog|
|000004a0| 65 74 68 65 72 28 41 32 | 29 2b 5b 63 32 5f 41 64 |ether(A2|)+[c2_Ad|
|000004b0| 64 5d 61 64 64 5f 74 6f | 67 65 74 68 65 72 28 43 |d]add_to|gether(C|
|000004c0| 32 29 0a 25 56 25 25 52 | 25 5b 63 31 5f 41 64 64 |2).%V%%R|%[c1_Add|
|000004d0| 5d 61 64 64 5f 74 6f 67 | 65 74 68 65 72 28 41 33 |]add_tog|ether(A3|
|000004e0| 29 2b 5b 63 31 5f 41 64 | 64 5d 61 64 64 5f 74 6f |)+[c1_Ad|d]add_to|
|000004f0| 67 65 74 68 65 72 28 43 | 33 29 0a 46 69 6c 65 44 |gether(C|3).FileD|
|00000500| 61 74 61 82 63 31 5f 41 | 64 64 00 61 00 00 00 16 |ata.c1_A|dd.a....|
|00000510| 02 00 00 46 de fd ff 4a | 7f bf 00 03 00 88 ae 25 |...F...J|.......%|
|00000520| 4f 50 25 56 53 34 2e 31 | 33 20 28 32 38 2d 41 70 |OP%VS4.1|3 (28-Ap|
|00000530| 72 2d 39 32 29 2c 20 47 | 65 72 61 6c 64 20 4c 20 |r-92), G|erald L |
|00000540| 46 69 74 74 6f 6e 2c 20 | 52 34 30 30 30 20 35 39 |Fitton, |R4000 59|
|00000550| 36 36 20 39 39 30 34 20 | 39 39 33 38 20 0a 25 4f |66 9904 |9938 .%O|
|00000560| 50 25 54 4e 4e 0a 25 4f | 50 25 57 52 4e 0a 25 4f |P%TNN.%O|P%WRN.%O|
|00000570| 50 25 44 50 30 0a 25 4f | 50 25 49 52 4e 0a 25 4f |P%DP0.%O|P%IRN.%O|
|00000580| 50 25 50 4c 30 0a 25 4f | 50 25 48 4d 30 0a 25 4f |P%PL0.%O|P%HM0.%O|
|00000590| 50 25 46 4d 30 0a 25 4f | 50 25 42 4d 30 0a 25 4f |P%FM0.%O|P%BM0.%O|
|000005a0| 50 25 4c 4d 34 0a 25 4f | 50 25 50 54 31 0a 25 4f |P%LM4.%O|P%PT1.%O|
|000005b0| 50 25 50 44 50 69 70 65 | 4c 69 6e 65 0a 25 4f 50 |P%PDPipe|Line.%OP|
|000005c0| 25 57 43 32 2c 31 31 34 | 38 2c 33 35 36 2c 39 30 |%WC2,114|8,356,90|
|000005d0| 38 2c 30 2c 30 2c 30 2c | 32 0a 25 4f 50 25 4e 44 |8,0,0,0,|2.%OP%ND|
|000005e0| 61 6e 73 77 65 72 2c 42 | 39 0a 25 4f 50 25 46 52 |answer,B|9.%OP%FR|
|000005f0| 30 2c 32 0a 25 43 4f 3a | 41 2c 36 30 2c 37 32 25 |0,2.%CO:|A,60,72%|
|00000600| 43 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 20 43 6f 6d |Comments| and Com|
|00000610| 6d 61 6e 64 73 0a 0a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |mands..-|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|00000660| 0a 46 75 6e 63 74 69 6f | 6e 20 22 61 64 64 5f 74 |.Functio|n "add_t|
|00000670| 6f 67 65 74 68 65 72 22 | 0a 0a 25 56 25 25 4c 25 |ogether"|..%V%%L%|
|00000680| 66 75 6e 63 74 69 6f 6e | 28 22 61 64 64 5f 74 6f |function|("add_to|
|00000690| 67 65 74 68 65 72 22 2c | 22 6e 3a 6e 75 6d 62 65 |gether",|"n:numbe|
|000006a0| 72 22 29 0a 0a 25 56 25 | 25 4c 25 73 65 74 5f 6e |r")..%V%|%L%set_n|
|000006b0| 61 6d 65 28 22 61 6e 73 | 77 65 72 22 2c 42 39 29 |ame("ans|wer",B9)|
|000006c0| 0a 25 56 25 25 4c 25 73 | 65 74 5f 76 61 6c 75 65 |.%V%%L%s|et_value|
|000006d0| 28 61 6e 73 77 65 72 2c | 30 29 0a 25 56 25 25 4c |(answer,|0).%V%%L|
|000006e0| 25 73 65 74 5f 76 61 6c | 75 65 28 61 6e 73 77 65 |%set_val|ue(answe|
|000006f0| 72 2c 40 6e 29 0a 0a 25 | 56 25 25 4c 25 72 65 73 |r,@n)..%|V%%L%res|
|00000700| 75 6c 74 28 61 6e 73 77 | 65 72 29 0a 25 43 4f 3a |ult(answ|er).%CO:|
|00000710| 42 2c 36 2c 30 25 56 61 | 6c 75 65 0a 0a 0a 0a 0a |B,6,0%Va|lue.....|
|00000720| 0a 0a 0a 25 56 25 25 52 | 25 32 0a 25 43 4f 3a 43 |...%V%%R|%2.%CO:C|
|00000730| 2c 36 2c 30 25 46 69 6c | 65 44 61 74 61 82 63 32 |,6,0%Fil|eData.c2|
|00000740| 5f 41 64 64 00 61 00 00 | 00 1d 02 00 00 46 de fd |_Add.a..|.....F..|
|00000750| ff 22 82 bf 00 03 00 49 | 2b 25 4f 50 25 56 53 34 |.".....I|+%OP%VS4|
|00000760| 2e 31 33 20 28 32 38 2d | 41 70 72 2d 39 32 29 2c |.13 (28-|Apr-92),|
|00000770| 20 47 65 72 61 6c 64 20 | 4c 20 46 69 74 74 6f 6e | Gerald |L Fitton|
|00000780| 2c 20 52 34 30 30 30 20 | 35 39 36 36 20 39 39 30 |, R4000 |5966 990|
|00000790| 34 20 39 39 33 38 20 0a | 25 4f 50 25 54 4e 4e 0a |4 9938 .|%OP%TNN.|
|000007a0| 25 4f 50 25 57 52 4e 0a | 25 4f 50 25 44 50 30 0a |%OP%WRN.|%OP%DP0.|
|000007b0| 25 4f 50 25 49 52 4e 0a | 25 4f 50 25 50 4c 30 0a |%OP%IRN.|%OP%PL0.|
|000007c0| 25 4f 50 25 48 4d 30 0a | 25 4f 50 25 46 4d 30 0a |%OP%HM0.|%OP%FM0.|
|000007d0| 25 4f 50 25 42 4d 30 0a | 25 4f 50 25 4c 4d 34 0a |%OP%BM0.|%OP%LM4.|
|000007e0| 25 4f 50 25 50 54 31 0a | 25 4f 50 25 50 44 50 69 |%OP%PT1.|%OP%PDPi|
|000007f0| 70 65 4c 69 6e 65 0a 25 | 4f 50 25 57 43 32 2c 31 |peLine.%|OP%WC2,1|
|00000800| 31 34 38 2c 33 36 30 2c | 39 30 38 2c 30 2c 30 2c |148,360,|908,0,0,|
|00000810| 30 2c 32 0a 25 4f 50 25 | 4e 44 61 6e 73 77 65 72 |0,2.%OP%|NDanswer|
|00000820| 2c 42 39 0a 25 4f 50 25 | 46 52 30 2c 32 0a 25 43 |,B9.%OP%|FR0,2.%C|
|00000830| 4f 3a 41 2c 36 30 2c 37 | 32 25 43 6f 6d 6d 65 6e |O:A,60,7|2%Commen|
|00000840| 74 73 20 61 6e 64 20 43 | 6f 6d 6d 61 6e 64 73 0a |ts and C|ommands.|
|00000850| 0a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 0a 46 75 6e 63 74 |--------|-..Funct|
|000008a0| 69 6f 6e 20 22 61 64 64 | 5f 74 6f 67 65 74 68 65 |ion "add|_togethe|
|000008b0| 72 22 0a 0a 25 56 25 25 | 4c 25 66 75 6e 63 74 69 |r"..%V%%|L%functi|
|000008c0| 6f 6e 28 22 61 64 64 5f | 74 6f 67 65 74 68 65 72 |on("add_|together|
|000008d0| 22 2c 22 6e 3a 6e 75 6d | 62 65 72 22 29 0a 0a 25 |","n:num|ber")..%|
|000008e0| 56 25 25 4c 25 73 65 74 | 5f 6e 61 6d 65 28 22 61 |V%%L%set|_name("a|
|000008f0| 6e 73 77 65 72 22 2c 42 | 39 29 0a 25 56 25 25 4c |nswer",B|9).%V%%L|
|00000900| 25 73 65 74 5f 76 61 6c | 75 65 28 61 6e 73 77 65 |%set_val|ue(answe|
|00000910| 72 2c 30 29 0a 25 56 25 | 25 4c 25 73 65 74 5f 76 |r,0).%V%|%L%set_v|
|00000920| 61 6c 75 65 28 61 6e 73 | 77 65 72 2c 40 6e 29 0a |alue(ans|wer,@n).|
|00000930| 0a 25 56 25 25 4c 25 72 | 65 73 75 6c 74 28 64 65 |.%V%%L%r|esult(de|
|00000940| 72 65 66 28 61 6e 73 77 | 65 72 29 29 0a 25 43 4f |ref(answ|er)).%CO|
|00000950| 3a 42 2c 36 2c 30 25 56 | 61 6c 75 65 0a 0a 0a 0a |:B,6,0%V|alue....|
|00000960| 0a 0a 0a 0a 25 56 25 25 | 52 25 32 0a 25 43 4f 3a |....%V%%|R%2.%CO:|
|00000970| 43 2c 36 2c 30 25 46 69 | 6c 65 44 61 74 61 82 63 |C,6,0%Fi|leData.c|
|00000980| 5f 6e 43 72 00 00 d4 ff | ff ff ed 0d 00 00 45 de |_nCr....|......E.|
|00000990| fd ff 06 27 b9 ff 03 00 | 8e c8 25 4f 50 25 56 53 |...'....|..%OP%VS|
|000009a0| 34 2e 31 33 20 28 32 38 | 2d 41 70 72 2d 39 32 29 |4.13 (28|-Apr-92)|
|000009b0| 2c 20 47 65 72 61 6c 64 | 20 4c 20 46 69 74 74 6f |, Gerald| L Fitto|
|000009c0| 6e 2c 20 52 34 30 30 30 | 20 35 39 36 36 20 39 39 |n, R4000| 5966 99|
|000009d0| 30 34 20 39 39 33 38 20 | 0a 25 4f 50 25 54 4e 4e |04 9938 |.%OP%TNN|
|000009e0| 0a 25 4f 50 25 57 52 4e | 0a 25 4f 50 25 44 50 30 |.%OP%WRN|.%OP%DP0|
|000009f0| 0a 25 4f 50 25 54 48 33 | 0a 25 4f 50 25 49 52 4e |.%OP%TH3|.%OP%IRN|
|00000a00| 0a 25 4f 50 25 50 4c 30 | 0a 25 4f 50 25 48 4d 30 |.%OP%PL0|.%OP%HM0|
|00000a10| 0a 25 4f 50 25 46 4d 30 | 0a 25 4f 50 25 42 4d 30 |.%OP%FM0|.%OP%BM0|
|00000a20| 0a 25 4f 50 25 4c 4d 34 | 0a 25 4f 50 25 50 54 31 |.%OP%LM4|.%OP%PT1|
|00000a30| 0a 25 4f 50 25 50 44 50 | 69 70 65 4c 69 6e 65 0a |.%OP%PDP|ipeLine.|
|00000a40| 25 4f 50 25 57 43 32 2c | 31 32 37 38 2c 31 31 36 |%OP%WC2,|1278,116|
|00000a50| 2c 31 36 37 32 2c 30 2c | 37 37 2c 30 2c 34 35 0a |,1672,0,|77,0,45.|
|00000a60| 25 4f 50 25 4e 44 69 74 | 65 72 61 74 69 6f 6e 5f |%OP%NDit|eration_|
|00000a70| 6e 75 6d 62 65 72 2c 42 | 35 38 0a 25 4f 50 25 4e |number,B|58.%OP%N|
|00000a80| 44 6c 6f 6f 70 5f 63 6f | 75 6e 74 65 72 2c 31 30 |Dloop_co|unter,10|
|00000a90| 30 31 0a 25 4f 50 25 4e | 44 63 75 72 72 65 6e 74 |01.%OP%N|Dcurrent|
|00000aa0| 5f 76 61 6c 75 65 2c 42 | 31 33 0a 25 4f 50 25 4e |_value,B|13.%OP%N|
|00000ab0| 44 6c 6f 6f 70 5f 63 6f | 75 6e 74 65 72 5f 32 2c |Dloop_co|unter_2,|
|00000ac0| 31 30 30 31 0a 25 4f 50 | 25 4e 44 74 65 6d 70 6f |1001.%OP|%NDtempo|
|00000ad0| 72 61 72 79 5f 61 6e 73 | 77 65 72 2c 42 35 36 0a |rary_ans|wer,B56.|
|00000ae0| 25 4f 50 25 4e 44 61 6e | 73 77 65 72 2c 42 35 36 |%OP%NDan|swer,B56|
|00000af0| 0a 25 4f 50 25 4e 44 69 | 74 65 72 61 74 69 6f 6e |.%OP%NDi|teration|
|00000b00| 5f 6e 75 6d 62 65 72 5f | 31 2c 42 35 37 0a 25 4f |_number_|1,B57.%O|
|00000b10| 50 25 4e 44 69 74 65 72 | 61 74 69 6f 6e 5f 6e 75 |P%NDiter|ation_nu|
|00000b20| 6d 62 65 72 5f 32 2c 42 | 35 38 0a 25 4f 50 25 4e |mber_2,B|58.%OP%N|
|00000b30| 44 69 6e 74 65 72 61 74 | 69 6f 6e 5f 6e 75 6d 62 |Dinterat|ion_numb|
|00000b40| 65 72 5f 33 2c 42 35 39 | 0a 25 4f 50 25 4e 44 69 |er_3,B59|.%OP%NDi|
|00000b50| 74 65 72 61 74 69 6f 6e | 5f 6e 75 6d 62 65 72 5f |teration|_number_|
|00000b60| 33 2c 42 35 39 0a 25 4f | 50 25 4e 44 72 5f 6f 6e |3,B59.%O|P%NDr_on|
|00000b70| 5f 65 6e 74 72 79 2c 42 | 35 37 0a 25 4f 50 25 4e |_entry,B|57.%OP%N|
|00000b80| 44 72 5f 6f 6e 5f 65 78 | 69 74 2c 42 35 38 0a 25 |Dr_on_ex|it,B58.%|
|00000b90| 4f 50 25 4e 44 65 6e 74 | 72 79 5f 6f 72 5f 65 78 |OP%NDent|ry_or_ex|
|00000ba0| 69 74 2c 42 35 39 0a 25 | 4f 50 25 46 52 30 2c 32 |it,B59.%|OP%FR0,2|
|00000bb0| 0a 25 43 4f 3a 41 2c 35 | 34 2c 37 32 25 43 6f 6d |.%CO:A,5|4,72%Com|
|00000bc0| 6d 65 6e 74 73 20 61 6e | 64 20 43 6f 6d 6d 61 6e |ments an|d Comman|
|00000bd0| 64 73 0a 0a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ds..----|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 0a 54 68 |--------|----..Th|
|00000c20| 65 20 63 75 73 74 6f 6d | 20 66 75 6e 63 74 69 6f |e custom| functio|
|00000c30| 6e 20 22 62 69 6e 6f 6d | 69 61 6c 5f 31 22 20 63 |n "binom|ial_1" c|
|00000c40| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 76 61 |alculate|s the va|
|00000c50| 6c 75 65 20 6f 66 20 6e | 43 72 28 6e 2c 72 29 0a |lue of n|Cr(n,r).|
|00000c60| 49 74 20 64 6f 65 73 20 | 73 6f 20 62 79 20 75 73 |It does |so by us|
|00000c70| 69 6e 67 20 61 20 46 6f | 72 a0 2d a0 4e 65 78 74 |ing a Fo|r.-.Next|
|00000c80| 20 4c 6f 6f 70 20 74 6f | 20 6d 75 6c 74 69 70 6c | Loop to| multipl|
|00000c90| 79 20 74 68 65 20 6e 61 | 6d 65 64 20 76 61 72 69 |y the na|med vari|
|00000ca0| 61 62 6c 65 0a 22 63 75 | 72 72 65 6e 74 5f 76 61 |able."cu|rrent_va|
|00000cb0| 6c 75 65 22 20 62 79 20 | 6e 2f 72 2c 20 74 68 65 |lue" by |n/r, the|
|00000cc0| 6e 20 62 79 20 28 6e 2d | 31 29 2f 28 72 2d 31 29 |n by (n-|1)/(r-1)|
|00000cd0| 2c 20 65 74 63 0a 0a 0a | 25 56 25 25 4c 25 66 75 |, etc...|%V%%L%fu|
|00000ce0| 6e 63 74 69 6f 6e 28 22 | 62 69 6e 6f 6d 69 61 6c |nction("|binomial|
|00000cf0| 5f 31 22 2c 22 6e 3a 6e | 75 6d 62 65 72 22 2c 22 |_1","n:n|umber","|
|00000d00| 72 3a 6e 75 6d 62 65 72 | 22 29 0a 0a 44 65 63 6c |r:number|")..Decl|
|00000d10| 61 72 65 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |are the |name of |
|00000d20| 74 68 65 20 6c 6f 63 61 | 6c 20 76 61 72 69 61 62 |the loca|l variab|
|00000d30| 6c 65 20 61 6e 64 20 74 | 68 65 20 73 6c 6f 74 20 |le and t|he slot |
|00000d40| 69 74 20 75 73 65 73 0a | 25 56 25 25 4c 25 73 65 |it uses.|%V%%L%se|
|00000d50| 74 5f 6e 61 6d 65 28 22 | 63 75 72 72 65 6e 74 5f |t_name("|current_|
|00000d60| 76 61 6c 75 65 22 2c 42 | 31 33 29 0a 0a 49 6e 69 |value",B|13)..Ini|
|00000d70| 74 69 61 6c 69 73 65 20 | 76 61 6c 75 65 20 6f 66 |tialise |value of|
|00000d80| 20 6e 61 6d 65 64 20 76 | 61 72 69 61 62 6c 65 0a | named v|ariable.|
|00000d90| 25 56 25 25 4c 25 73 65 | 74 5f 76 61 6c 75 65 28 |%V%%L%se|t_value(|
|00000da0| 63 75 72 72 65 6e 74 5f | 76 61 6c 75 65 2c 31 29 |current_|value,1)|
|00000db0| 0a 0a 4e 6f 77 20 65 78 | 65 63 75 74 65 20 74 68 |..Now ex|ecute th|
|00000dc0| 65 20 46 6f 72 a0 2d a0 | 4e 65 78 74 20 6c 6f 6f |e For.-.|Next loo|
|00000dd0| 70 20 72 20 74 69 6d 65 | 73 0a 25 56 25 25 4c 25 |p r time|s.%V%%L%|
|00000de0| 66 6f 72 28 22 6c 6f 6f | 70 5f 63 6f 75 6e 74 65 |for("loo|p_counte|
|00000df0| 72 22 2c 30 2c 40 72 2d | 31 29 0a 0a 20 20 20 20 |r",0,@r-|1)..    |
|00000e00| 20 53 6c 6f 77 20 64 6f | 77 6e 20 74 68 65 20 6c | Slow do|wn the l|
|00000e10| 6f 6f 70 20 73 6f 20 77 | 65 20 63 61 6e 20 73 65 |oop so w|e can se|
|00000e20| 65 20 69 74 20 6f 70 65 | 72 61 74 65 20 28 6c 6f |e it ope|rate (lo|
|00000e30| 6f 6b 20 61 74 20 42 31 | 33 29 0a 25 56 25 25 4c |ok at B1|3).%V%%L|
|00000e40| 25 20 20 66 6f 72 28 22 | 6c 6f 6f 70 5f 63 6f 75 |%  for("|loop_cou|
|00000e50| 6e 74 65 72 5f 32 22 2c | 31 2c 31 30 30 30 29 0a |nter_2",|1,1000).|
|00000e60| 25 56 25 25 4c 25 20 20 | 6e 65 78 74 0a 0a 20 20 |%V%%L%  |next..  |
|00000e70| 20 20 54 68 65 20 6e 65 | 78 74 20 6c 69 6e 65 20 |  The ne|xt line |
|00000e80| 64 6f 65 73 20 74 68 65 | 20 27 77 6f 72 6b 27 0a |does the| 'work'.|
|00000e90| 25 56 25 25 4c 25 20 73 | 65 74 5f 76 61 6c 75 65 |%V%%L% s|et_value|
|00000ea0| 28 63 75 72 72 65 6e 74 | 5f 76 61 6c 75 65 2c 63 |(current|_value,c|
|00000eb0| 75 72 72 65 6e 74 5f 76 | 61 6c 75 65 2a 28 40 6e |urrent_v|alue*(@n|
|00000ec0| 2d 6c 6f 6f 70 5f 63 6f | 75 6e 74 65 72 29 2f 28 |-loop_co|unter)/(|
|00000ed0| 40 72 2d 6c 6f 6f 70 5f | 63 6f 75 6e 74 65 72 29 |@r-loop_|counter)|
|00000ee0| 29 0a 25 56 25 25 4c 25 | 6e 65 78 74 0a 0a 52 65 |).%V%%L%|next..Re|
|00000ef0| 74 75 72 6e 20 74 68 65 | 20 72 65 73 75 6c 74 0a |turn the| result.|
|00000f00| 25 56 25 25 4c 25 72 65 | 73 75 6c 74 28 63 75 72 |%V%%L%re|sult(cur|
|00000f10| 72 65 6e 74 5f 76 61 6c | 75 65 29 0a 0a 0a 0a 54 |rent_val|ue)....T|
|00000f20| 68 65 20 63 75 73 74 6f | 6d 20 66 75 6e 63 74 69 |he custo|m functi|
|00000f30| 6f 6e 20 22 62 69 6e 6f | 6d 69 61 6c 5f 32 22 20 |on "bino|mial_2" |
|00000f40| 63 61 6c 63 75 6c 61 74 | 65 73 20 74 68 65 20 76 |calculat|es the v|
|00000f50| 61 6c 75 65 20 6f 66 20 | 6e 43 72 28 6e 2c 72 29 |alue of |nCr(n,r)|
|00000f60| 2e 0a 49 74 20 64 6f 65 | 73 20 73 6f 20 62 79 20 |..It doe|s so by |
|00000f70| 75 73 69 6e 67 20 61 20 | 72 65 63 75 72 73 69 76 |using a |recursiv|
|00000f80| 65 20 63 61 6c 6c 20 74 | 6f 20 74 68 65 20 66 75 |e call t|o the fu|
|00000f90| 6e 63 74 69 6f 6e 20 22 | 62 69 6e 6f 6d 69 61 6c |nction "|binomial|
|00000fa0| 5f 32 22 2e 0a 0a 45 61 | 63 68 20 63 61 6c 6c 20 |_2"...Ea|ch call |
|00000fb0| 74 6f 20 74 68 65 20 63 | 75 73 74 6f 6d 20 66 75 |to the c|ustom fu|
|00000fc0| 6e 63 74 69 6f 6e 20 69 | 73 20 65 78 65 63 75 74 |nction i|s execut|
|00000fd0| 65 64 20 6f 6e 6c 79 20 | 64 6f 77 6e 20 74 6f 20 |ed only |down to |
|00000fe0| 74 68 65 20 70 6f 69 6e | 74 20 0a 77 68 65 72 65 |the poin|t .where|
|00000ff0| 20 69 74 20 62 65 63 6f | 6d 65 73 20 72 65 63 75 | it beco|mes recu|
|00001000| 72 73 69 76 65 2e 20 20 | 49 20 63 61 6c 6c 20 74 |rsive.  |I call t|
|00001010| 68 69 73 20 27 65 6e 74 | 65 72 69 6e 67 27 20 62 |his 'ent|ering' b|
|00001020| 65 63 61 75 73 65 20 79 | 6f 75 20 63 61 6e 20 0a |ecause y|ou can .|
|00001030| 69 6d 61 67 69 6e 65 20 | 74 68 61 74 20 65 61 63 |imagine |that eac|
|00001040| 68 20 74 69 6d 65 20 79 | 6f 75 20 72 65 61 63 68 |h time y|ou reach|
|00001050| 20 74 68 65 20 70 6f 69 | 6e 74 20 6f 66 20 72 65 | the poi|nt of re|
|00001060| 63 75 72 73 69 6f 6e 20 | 79 6f 75 20 65 6e 74 65 |cursion |you ente|
|00001070| 72 20 61 20 0a 67 61 74 | 65 77 61 79 20 74 6f 20 |r a .gat|eway to |
|00001080| 74 68 65 20 6e 65 78 74 | 20 72 65 63 75 72 73 69 |the next| recursi|
|00001090| 6f 6e 2e 20 20 59 6f 75 | 20 63 61 6e 20 73 65 65 |on.  You| can see|
|000010a0| 20 74 68 69 73 20 68 61 | 70 70 65 6e 69 6e 67 20 | this ha|ppening |
|000010b0| 69 66 20 79 6f 75 20 0a | 6f 62 73 65 72 76 65 20 |if you .|observe |
|000010c0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |the valu|e of the|
|000010d0| 20 6c 6f 63 61 6c 20 76 | 61 72 69 61 62 6c 65 20 | local v|ariable |
|000010e0| 22 72 5f 6f 6e 5f 65 6e | 74 72 79 22 20 61 73 20 |"r_on_en|try" as |
|000010f0| 74 68 65 20 65 61 72 6c | 79 20 70 61 72 74 20 0a |the earl|y part .|
|00001100| 6f 66 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |of the f|unction |
|00001110| 69 73 20 65 78 65 63 75 | 74 65 64 20 66 6f 72 20 |is execu|ted for |
|00001120| 72 65 64 75 63 69 6e 67 | 20 76 61 6c 75 65 73 20 |reducing| values |
|00001130| 6f 66 20 72 2e 0a 0a 57 | 68 65 6e 20 74 68 65 20 |of r...W|hen the |
|00001140| 76 61 6c 75 65 20 6f 66 | 20 72 a0 3d a0 31 20 77 |value of| r.=.1 w|
|00001150| 65 20 68 61 76 65 20 74 | 6f 20 73 74 6f 70 20 74 |e have t|o stop t|
|00001160| 68 65 20 72 65 63 75 72 | 73 69 76 65 20 70 72 6f |he recur|sive pro|
|00001170| 63 65 64 75 72 65 20 61 | 6e 64 20 0a 27 75 6e 77 |cedure a|nd .'unw|
|00001180| 69 6e 64 27 20 69 74 20 | 62 79 20 75 73 69 6e 67 |ind' it |by using|
|00001190| 20 74 68 65 20 27 65 78 | 69 74 27 20 70 61 72 74 | the 'ex|it' part|
|000011a0| 20 6f 66 20 74 68 65 20 | 63 75 73 74 6f 6d 20 66 | of the |custom f|
|000011b0| 75 6e 63 74 69 6f 6e 2e | 20 20 59 6f 75 20 63 61 |unction.|  You ca|
|000011c0| 6e 20 0a 73 65 65 20 74 | 68 69 73 20 68 61 70 70 |n .see t|his happ|
|000011d0| 65 6e 69 6e 67 20 62 79 | 20 6f 62 73 65 72 76 69 |ening by| observi|
|000011e0| 6e 67 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |ng the v|alue of |
|000011f0| 74 68 65 20 6c 6f 63 61 | 6c 20 76 61 72 69 61 62 |the loca|l variab|
|00001200| 6c 65 20 0a 22 72 5f 6f | 6e 5f 65 78 69 74 22 2e |le ."r_o|n_exit".|
|00001210| 0a 0a 41 6c 73 6f 20 79 | 6f 75 20 77 69 6c 6c 20 |..Also y|ou will |
|00001220| 73 65 65 20 74 68 61 74 | 20 74 68 65 20 6c 6f 63 |see that| the loc|
|00001230| 61 6c 20 76 61 72 69 61 | 62 6c 65 20 22 65 6e 74 |al varia|ble "ent|
|00001240| 72 79 5f 6f 72 5f 65 78 | 69 74 22 20 74 61 6b 65 |ry_or_ex|it" take|
|00001250| 73 20 0a 61 70 70 72 6f | 70 72 69 61 74 65 20 76 |s .appro|priate v|
|00001260| 61 6c 75 65 73 20 74 6f | 20 73 68 6f 77 20 77 68 |alues to| show wh|
|00001270| 69 63 68 20 70 61 72 74 | 20 6f 66 20 74 68 65 20 |ich part| of the |
|00001280| 6c 6f 6f 70 20 69 73 20 | 62 65 69 6e 67 20 65 78 |loop is |being ex|
|00001290| 65 63 75 74 65 64 2e 0a | 0a 0a 25 56 25 25 4c 25 |ecuted..|..%V%%L%|
|000012a0| 66 75 6e 63 74 69 6f 6e | 28 22 62 69 6e 6f 6d 69 |function|("binomi|
|000012b0| 61 6c 5f 32 22 2c 22 6e | 3a 6e 75 6d 62 65 72 22 |al_2","n|:number"|
|000012c0| 2c 22 72 3a 6e 75 6d 62 | 65 72 22 29 0a 0a 44 65 |,"r:numb|er")..De|
|000012d0| 63 6c 61 72 65 20 74 68 | 65 20 27 6e 61 6d 65 73 |clare th|e 'names|
|000012e0| 27 20 6f 66 20 74 68 65 | 20 76 61 72 69 61 62 6c |' of the| variabl|
|000012f0| 65 73 20 61 6e 64 20 74 | 68 65 20 73 6c 6f 74 73 |es and t|he slots|
|00001300| 20 74 68 65 79 20 77 69 | 6c 6c 20 75 73 65 0a 25 | they wi|ll use.%|
|00001310| 56 25 25 4c 25 73 65 74 | 5f 6e 61 6d 65 28 22 61 |V%%L%set|_name("a|
|00001320| 6e 73 77 65 72 22 2c 42 | 35 36 29 0a 25 56 25 25 |nswer",B|56).%V%%|
|00001330| 4c 25 73 65 74 5f 6e 61 | 6d 65 28 22 72 5f 6f 6e |L%set_na|me("r_on|
|00001340| 5f 65 6e 74 72 79 22 2c | 42 35 37 29 0a 25 56 25 |_entry",|B57).%V%|
|00001350| 25 4c 25 73 65 74 5f 6e | 61 6d 65 28 22 72 5f 6f |%L%set_n|ame("r_o|
|00001360| 6e 5f 65 78 69 74 22 2c | 42 35 38 29 0a 25 56 25 |n_exit",|B58).%V%|
|00001370| 25 4c 25 73 65 74 5f 6e | 61 6d 65 28 22 65 6e 74 |%L%set_n|ame("ent|
|00001380| 72 79 5f 6f 72 5f 65 78 | 69 74 22 2c 42 35 39 29 |ry_or_ex|it",B59)|
|00001390| 0a 0a 49 6e 69 74 69 61 | 6c 69 73 65 20 74 68 65 |..Initia|lise the|
|000013a0| 20 6c 6f 63 61 6c 20 76 | 61 72 69 61 62 6c 65 73 | local v|ariables|
|000013b0| 0a 25 56 25 25 4c 25 73 | 65 74 5f 76 61 6c 75 65 |.%V%%L%s|et_value|
|000013c0| 28 61 6e 73 77 65 72 2c | 30 29 0a 25 56 25 25 4c |(answer,|0).%V%%L|
|000013d0| 25 73 65 74 5f 76 61 6c | 75 65 28 72 5f 6f 6e 5f |%set_val|ue(r_on_|
|000013e0| 65 6e 74 72 79 2c 30 29 | 0a 25 56 25 25 4c 25 73 |entry,0)|.%V%%L%s|
|000013f0| 65 74 5f 76 61 6c 75 65 | 28 72 5f 6f 6e 5f 65 78 |et_value|(r_on_ex|
|00001400| 69 74 2c 30 29 0a 25 56 | 25 25 4c 25 73 65 74 5f |it,0).%V|%%L%set_|
|00001410| 76 61 6c 75 65 28 65 6e | 74 72 79 5f 6f 72 5f 65 |value(en|try_or_e|
|00001420| 78 69 74 2c 22 22 29 0a | 0a 53 68 6f 77 20 77 68 |xit,"").|.Show wh|
|00001430| 69 63 68 20 76 61 6c 75 | 65 20 6f 66 20 72 20 77 |ich valu|e of r w|
|00001440| 65 20 61 72 65 20 75 73 | 69 6e 67 20 64 75 72 69 |e are us|ing duri|
|00001450| 6e 67 20 65 6e 74 72 79 | 20 74 6f 20 72 65 63 75 |ng entry| to recu|
|00001460| 72 73 69 6f 6e 0a 25 56 | 25 25 4c 25 73 65 74 5f |rsion.%V|%%L%set_|
|00001470| 76 61 6c 75 65 28 65 6e | 74 72 79 5f 6f 72 5f 65 |value(en|try_or_e|
|00001480| 78 69 74 2c 22 45 6e 74 | 72 79 22 29 0a 25 56 25 |xit,"Ent|ry").%V%|
|00001490| 25 4c 25 73 65 74 5f 76 | 61 6c 75 65 28 72 5f 6f |%L%set_v|alue(r_o|
|000014a0| 6e 5f 65 6e 74 72 79 2c | 40 72 29 0a 0a 53 6c 6f |n_entry,|@r)..Slo|
|000014b0| 77 20 64 6f 77 6e 20 74 | 68 65 20 6f 70 65 72 61 |w down t|he opera|
|000014c0| 74 69 6f 6e 20 73 6f 20 | 77 65 20 63 61 6e 20 73 |tion so |we can s|
|000014d0| 65 65 20 69 74 20 77 6f | 72 6b 0a 25 56 25 25 4c |ee it wo|rk.%V%%L|
|000014e0| 25 66 6f 72 28 22 6c 6f | 6f 70 5f 63 6f 75 6e 74 |%for("lo|op_count|
|000014f0| 65 72 22 2c 31 2c 31 30 | 30 30 29 0a 25 56 25 25 |er",1,10|00).%V%%|
|00001500| 4c 25 6e 65 78 74 0a 0a | 54 68 65 20 6e 65 78 74 |L%next..|The next|
|00001510| 20 6c 69 6e 65 20 63 6f | 6e 74 61 69 6e 73 20 74 | line co|ntains t|
|00001520| 68 65 20 72 65 63 75 72 | 73 69 76 65 20 63 61 6c |he recur|sive cal|
|00001530| 6c 20 74 6f 20 74 68 65 | 20 22 62 69 6e 6f 6d 69 |l to the| "binomi|
|00001540| 61 6c 5f 32 22 20 66 75 | 6e 63 74 69 6f 6e 0a 25 |al_2" fu|nction.%|
|00001550| 56 25 25 4c 25 73 65 74 | 5f 76 61 6c 75 65 28 61 |V%%L%set|_value(a|
|00001560| 6e 73 77 65 72 2c 69 66 | 28 40 72 3e 31 2c 40 6e |nswer,if|(@r>1,@n|
|00001570| 2f 40 72 2a 62 69 6e 6f | 6d 69 61 6c 5f 32 28 40 |/@r*bino|mial_2(@|
|00001580| 6e 2d 31 2c 40 72 2d 31 | 29 2c 40 6e 29 29 0a 0a |n-1,@r-1|),@n))..|
|00001590| 53 68 6f 77 20 77 68 69 | 63 68 20 69 74 65 72 61 |Show whi|ch itera|
|000015a0| 74 69 6f 6e 20 69 73 20 | 62 65 69 6e 67 20 65 78 |tion is |being ex|
|000015b0| 65 63 75 74 65 64 20 64 | 75 72 69 6e 67 20 65 78 |ecuted d|uring ex|
|000015c0| 69 74 20 6f 66 20 72 65 | 63 75 72 73 69 6f 6e 0a |it of re|cursion.|
|000015d0| 25 56 25 25 4c 25 73 65 | 74 5f 76 61 6c 75 65 28 |%V%%L%se|t_value(|
|000015e0| 65 6e 74 72 79 5f 6f 72 | 5f 65 78 69 74 2c 22 45 |entry_or|_exit,"E|
|000015f0| 78 69 74 22 29 0a 25 56 | 25 25 4c 25 73 65 74 5f |xit").%V|%%L%set_|
|00001600| 76 61 6c 75 65 28 72 5f | 6f 6e 5f 65 78 69 74 2c |value(r_|on_exit,|
|00001610| 40 72 29 0a 0a 53 6c 6f | 77 20 64 6f 77 6e 20 74 |@r)..Slo|w down t|
|00001620| 68 65 20 6f 70 65 72 61 | 74 69 6f 6e 20 73 6f 20 |he opera|tion so |
|00001630| 77 65 20 63 61 6e 20 73 | 65 65 20 69 74 20 77 6f |we can s|ee it wo|
|00001640| 72 6b 0a 25 56 25 25 4c | 25 66 6f 72 28 22 6c 6f |rk.%V%%L|%for("lo|
|00001650| 6f 70 5f 63 6f 75 6e 74 | 65 72 22 2c 31 2c 31 30 |op_count|er",1,10|
|00001660| 30 30 29 0a 25 56 25 25 | 4c 25 6e 65 78 74 0a 0a |00).%V%%|L%next..|
|00001670| 52 65 74 75 72 6e 20 74 | 68 65 20 72 65 73 75 6c |Return t|he resul|
|00001680| 74 0a 25 56 25 25 4c 25 | 72 65 73 75 6c 74 28 61 |t.%V%%L%|result(a|
|00001690| 6e 73 77 65 72 29 0a 25 | 43 4f 3a 42 2c 31 32 2c |nswer).%|CO:B,12,|
|000016a0| 30 25 56 61 6c 75 65 0a | 0a 0a 0a 0a 0a 0a 0a 0a |0%Value.|........|
|000016b0| 0a 0a 0a 25 56 25 25 52 | 25 31 32 30 0a 0a 0a 0a |...%V%%R|%120....|
|000016c0| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|000016d0| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|000016e0| 0a 0a 0a 0a 0a 0a 0a 25 | 56 25 25 52 25 31 35 31 |.......%|V%%R%151|
|000016f0| 38 30 0a 25 56 25 25 52 | 25 31 0a 25 56 25 25 52 |80.%V%%R|%1.%V%%R|
|00001700| 25 33 0a 25 56 25 25 52 | 25 22 45 78 69 74 22 0a |%3.%V%%R|%"Exit".|
|00001710| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00001720| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 25 43 4f 3a 43 2c 36 |........|.%CO:C,6|
|00001730| 2c 30 25 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |,0%.....|........|
|00001740| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00001750| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00001760| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00001770| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00001780| 0a 0a 0a 0a 0a 0a 0a 46 | 69 6c 65 44 61 74 61 82 |.......F|ileData.|
|00001790| 6e 43 72 5f 31 00 00 d4 | ff ff ff 95 01 00 00 45 |nCr_1...|.......E|
|000017a0| de fd ff 13 1e af ff 03 | 00 02 fe 25 4f 50 25 56 |........|...%OP%V|
|000017b0| 53 34 2e 31 33 20 28 32 | 38 2d 41 70 72 2d 39 32 |S4.13 (2|8-Apr-92|
|000017c0| 29 2c 20 47 65 72 61 6c | 64 20 4c 20 46 69 74 74 |), Geral|d L Fitt|
|000017d0| 6f 6e 2c 20 52 34 30 30 | 30 20 35 39 36 36 20 39 |on, R400|0 5966 9|
|000017e0| 39 30 34 20 39 39 33 38 | 20 0a 25 4f 50 25 54 4e |904 9938| .%OP%TN|
|000017f0| 4e 0a 25 4f 50 25 57 52 | 4e 0a 25 4f 50 25 44 50 |N.%OP%WR|N.%OP%DP|
|00001800| 30 0a 25 4f 50 25 54 48 | 33 0a 25 4f 50 25 49 52 |0.%OP%TH|3.%OP%IR|
|00001810| 4e 0a 25 4f 50 25 47 52 | 59 0a 25 4f 50 25 50 4c |N.%OP%GR|Y.%OP%PL|
|00001820| 30 0a 25 4f 50 25 48 4d | 30 0a 25 4f 50 25 46 4d |0.%OP%HM|0.%OP%FM|
|00001830| 30 0a 25 4f 50 25 42 4d | 30 0a 25 4f 50 25 4c 4d |0.%OP%BM|0.%OP%LM|
|00001840| 34 0a 25 4f 50 25 50 54 | 31 0a 25 4f 50 25 50 44 |4.%OP%PT|1.%OP%PD|
|00001850| 50 69 70 65 4c 69 6e 65 | 0a 25 4f 50 25 57 43 32 |PipeLine|.%OP%WC2|
|00001860| 2c 36 34 36 2c 34 34 2c | 35 30 38 2c 31 2c 37 2c |,646,44,|508,1,7,|
|00001870| 30 2c 30 0a 25 4f 50 25 | 4e 44 72 2c 42 36 0a 25 |0,0.%OP%|NDr,B6.%|
|00001880| 4f 50 25 4e 44 6e 2c 42 | 35 0a 25 43 4f 3a 41 2c |OP%NDn,B|5.%CO:A,|
|00001890| 31 39 2c 33 33 25 0a 46 | 69 6e 64 20 6e 43 72 20 |19,33%.F|ind nCr |
|000018a0| 75 73 69 6e 67 20 61 20 | 46 6f 72 a0 2d a0 4e 65 |using a |For.-.Ne|
|000018b0| 78 74 20 4c 6f 6f 70 0a | 6e 20 61 6e 64 20 72 20 |xt Loop.|n and r |
|000018c0| 61 72 65 20 50 69 70 65 | 44 72 65 61 6d 20 4e 61 |are Pipe|Dream Na|
|000018d0| 6d 65 73 0a 0a 56 61 6c | 75 65 20 6f 66 20 6e 20 |mes..Val|ue of n |
|000018e0| 3d 0a 56 61 6c 75 65 20 | 6f 66 20 72 20 3d 0a 0a |=.Value |of r =..|
|000018f0| 56 61 6c 75 65 20 6f 66 | 20 6e 43 72 28 6e 2c 72 |Value of| nCr(n,r|
|00001900| 29 0a 25 43 4f 3a 42 2c | 31 34 2c 30 25 0a 0a 0a |).%CO:B,|14,0%...|
|00001910| 0a 25 56 25 25 52 25 31 | 30 0a 25 56 25 25 52 25 |.%V%%R%1|0.%V%%R%|
|00001920| 33 0a 0a 25 56 25 25 52 | 25 5b 63 5f 6e 43 72 5d |3..%V%%R|%[c_nCr]|
|00001930| 62 69 6e 6f 6d 69 61 6c | 5f 31 28 6e 2c 72 29 0a |binomial|_1(n,r).|
|00001940| 46 69 6c 65 44 61 74 61 | 82 6e 43 72 5f 32 00 00 |FileData|.nCr_2..|
|00001950| d4 ff ff ff 96 01 00 00 | 45 de fd ff a8 01 b7 ff |........|E.......|
|00001960| 03 00 5f 45 25 4f 50 25 | 56 53 34 2e 31 33 20 28 |.._E%OP%|VS4.13 (|
|00001970| 32 38 2d 41 70 72 2d 39 | 32 29 2c 20 47 65 72 61 |28-Apr-9|2), Gera|
|00001980| 6c 64 20 4c 20 46 69 74 | 74 6f 6e 2c 20 52 34 30 |ld L Fit|ton, R40|
|00001990| 30 30 20 35 39 36 36 20 | 39 39 30 34 20 39 39 33 |00 5966 |9904 993|
|000019a0| 38 20 0a 25 4f 50 25 54 | 4e 4e 0a 25 4f 50 25 57 |8 .%OP%T|NN.%OP%W|
|000019b0| 52 4e 0a 25 4f 50 25 44 | 50 30 0a 25 4f 50 25 54 |RN.%OP%D|P0.%OP%T|
|000019c0| 48 33 0a 25 4f 50 25 49 | 52 4e 0a 25 4f 50 25 47 |H3.%OP%I|RN.%OP%G|
|000019d0| 52 59 0a 25 4f 50 25 50 | 4c 30 0a 25 4f 50 25 48 |RY.%OP%P|L0.%OP%H|
|000019e0| 4d 30 0a 25 4f 50 25 46 | 4d 30 0a 25 4f 50 25 42 |M0.%OP%F|M0.%OP%B|
|000019f0| 4d 30 0a 25 4f 50 25 4c | 4d 34 0a 25 4f 50 25 50 |M0.%OP%L|M4.%OP%P|
|00001a00| 54 31 0a 25 4f 50 25 50 | 44 50 69 70 65 4c 69 6e |T1.%OP%P|DPipeLin|
|00001a10| 65 0a 25 4f 50 25 57 43 | 32 2c 38 36 36 2c 34 34 |e.%OP%WC|2,866,44|
|00001a20| 2c 35 30 38 2c 31 2c 37 | 2c 30 2c 31 0a 25 4f 50 |,508,1,7|,0,1.%OP|
|00001a30| 25 4e 44 72 2c 42 36 0a | 25 4f 50 25 4e 44 6e 2c |%NDr,B6.|%OP%NDn,|
|00001a40| 42 35 0a 25 43 4f 3a 41 | 2c 31 39 2c 33 33 25 0a |B5.%CO:A|,19,33%.|
|00001a50| 46 69 6e 64 20 6e 43 72 | 20 75 73 69 6e 67 20 61 |Find nCr| using a|
|00001a60| 20 46 6f 72 a0 2d a0 4e | 65 78 74 20 4c 6f 6f 70 | For.-.N|ext Loop|
|00001a70| 0a 6e 20 61 6e 64 20 72 | 20 61 72 65 20 50 69 70 |.n and r| are Pip|
|00001a80| 65 44 72 65 61 6d 20 4e | 61 6d 65 73 0a 0a 56 61 |eDream N|ames..Va|
|00001a90| 6c 75 65 20 6f 66 20 6e | 20 3d 0a 56 61 6c 75 65 |lue of n| =.Value|
|00001aa0| 20 6f 66 20 72 20 3d 0a | 0a 56 61 6c 75 65 20 6f | of r =.|.Value o|
|00001ab0| 66 20 6e 43 72 28 6e 2c | 72 29 0a 25 43 4f 3a 42 |f nCr(n,|r).%CO:B|
|00001ac0| 2c 31 34 2c 30 25 0a 0a | 0a 0a 25 56 25 25 52 25 |,14,0%..|..%V%%R%|
|00001ad0| 34 36 0a 25 56 25 25 52 | 25 33 0a 0a 25 56 25 25 |46.%V%%R|%3..%V%%|
|00001ae0| 52 25 5b 63 5f 6e 43 72 | 5d 62 69 6e 6f 6d 69 61 |R%[c_nCr|]binomia|
|00001af0| 6c 5f 32 28 6e 2c 72 29 | 0a 0a 46 69 6c 65 44 61 |l_2(n,r)|..FileDa|
|00001b00| 74 61 82 4e 65 65 64 6c | 65 73 00 ff ff ff 54 04 |ta.Needl|es....T.|
|00001b10| 00 00 46 fb ff ff 9c 9f | 39 00 03 00 f5 42 0d 00 |..F.....|9....B..|
|00001b20| 0a 18 f4 20 3e 20 4e 65 | 65 64 6c 65 73 20 20 20 |... > Ne|edles   |
|00001b30| 20 20 20 20 20 3a 0d 00 | 14 23 f4 20 41 75 74 68 |     :..|.#. Auth|
|00001b40| 6f 72 20 20 20 20 20 20 | 20 20 20 20 20 3a 20 47 |or      |     : G|
|00001b50| 20 4c 20 46 69 74 74 6f | 6e 0d 00 1e 28 f4 20 43 | L Fitto|n...(. C|
|00001b60| 6f 70 79 72 69 67 68 74 | 20 20 20 20 20 20 20 20 |opyright|        |
|00001b70| 3a 20 41 42 41 43 55 53 | 20 54 52 41 49 4e 49 4e |: ABACUS| TRAININ|
|00001b80| 47 0d 00 28 2b f4 20 44 | 61 74 65 20 20 20 20 20 |G..(+. D|ate     |
|00001b90| 20 20 20 20 20 20 20 20 | 3a 20 32 33 72 64 20 4e |        |: 23rd N|
|00001ba0| 6f 76 65 6d 62 65 72 20 | 31 39 38 37 0d 00 32 05 |ovember |1987..2.|
|00001bb0| 3a 0d 00 3c 05 3a 0d 00 | 46 0e ee 20 85 20 f2 65 |:..<.:..|F.. . .e|
|00001bc0| 72 72 6f 72 0d 00 50 07 | eb 20 33 0d 00 5a 05 3a |rror..P.|. 3..Z.:|
|00001bd0| 0d 00 64 05 3a 0d 00 6e | 05 3a 0d 00 78 0a f2 69 |..d.:..n|.:..x..i|
|00001be0| 6e 74 72 6f 0d 00 82 25 | f1 20 22 4e 75 6d 62 65 |ntro...%|. "Numbe|
|00001bf0| 72 20 6f 66 20 64 69 73 | 63 73 20 74 6f 20 74 72 |r of dis|cs to tr|
|00001c00| 61 6e 73 66 65 72 2e 20 | 22 0d 00 8c 32 e8 20 22 |ansfer. |"...2. "|
|00001c10| 54 72 79 20 61 20 73 6d | 61 6c 6c 20 6e 75 6d 62 |Try a sm|all numb|
|00001c20| 65 72 2c 20 65 67 20 33 | 2c 20 66 69 72 73 74 2e |er, eg 3|, first.|
|00001c30| 20 22 20 64 69 73 63 73 | 24 27 27 0d 00 96 14 64 | " discs|$''....d|
|00001c40| 69 73 63 73 25 3d bb 28 | 64 69 73 63 73 24 29 0d |iscs%=.(|discs$).|
|00001c50| 00 a0 35 f4 20 4d 6f 76 | 65 20 61 20 70 69 6c 65 |..5. Mov|e a pile|
|00001c60| 20 6f 66 20 64 69 73 63 | 73 20 66 72 6f 6d 20 4e | of disc|s from N|
|00001c70| 65 65 64 6c 65 20 31 20 | 74 6f 20 4e 65 65 64 6c |eedle 1 |to Needl|
|00001c80| 65 20 32 2e 0d 00 aa 32 | f2 6d 6f 76 65 28 64 69 |e 2....2|.move(di|
|00001c90| 73 63 73 25 2c 22 4e 65 | 65 64 6c 65 20 31 22 2c |scs%,"Ne|edle 1",|
|00001ca0| 22 4e 65 65 64 6c 65 20 | 32 22 2c 22 4e 65 65 64 |"Needle |2","Need|
|00001cb0| 6c 65 20 33 22 29 0d 00 | b4 05 e0 0d 00 be 05 3a |le 3")..|.......:|
|00001cc0| 0d 00 c8 0c dd 20 f2 65 | 72 72 6f 72 0d 00 d2 05 |..... .e|rror....|
|00001cd0| 3a 0d 00 dc 05 3a 0d 00 | e6 0b ef 20 32 36 2c 31 |:....:..|... 26,1|
|00001ce0| 32 0d 00 f0 05 f6 0d 00 | fa 13 f1 20 22 20 61 74 |2.......|... " at|
|00001cf0| 20 6c 69 6e 65 20 22 3b | 9e 0d 01 04 05 fa 0d 01 | line ";|........|
|00001d00| 0e 05 3a 0d 01 18 05 e1 | 0d 01 22 05 3a 0d 01 2c |..:.....|..".:..,|
|00001d10| 23 dd 20 f2 6d 6f 76 65 | 28 64 69 73 63 25 2c 66 |#. .move|(disc%,f|
|00001d20| 72 6f 6d 24 2c 74 6f 24 | 2c 73 70 61 72 65 24 29 |rom$,to$|,spare$)|
|00001d30| 0d 01 36 4a f4 20 4d 6f | 76 65 73 20 61 20 70 69 |..6J. Mo|ves a pi|
|00001d40| 6c 65 20 6f 66 20 64 69 | 73 63 73 20 28 66 72 6f |le of di|scs (fro|
|00001d50| 6d 20 64 69 73 63 20 31 | 20 64 6f 77 6e 20 74 6f |m disc 1| down to|
|00001d60| 20 64 69 73 63 25 29 20 | 66 72 6f 6d 20 66 72 6f | disc%) |from fro|
|00001d70| 6d 24 20 74 6f 20 74 6f | 24 2e 0d 01 40 05 3a 0d |m$ to to|$...@.:.|
|00001d80| 01 4a 05 3a 0d 01 54 30 | e7 20 64 69 73 63 25 3c |.J.:..T0|. disc%<|
|00001d90| 3e 30 20 8c 20 f2 6d 6f | 76 65 28 64 69 73 63 25 |>0 . .mo|ve(disc%|
|00001da0| 2d 31 2c 66 72 6f 6d 24 | 2c 73 70 61 72 65 24 2c |-1,from$|,spare$,|
|00001db0| 74 6f 24 29 0d 01 5e 43 | e7 20 64 69 73 63 25 3c |to$)..^C|. disc%<|
|00001dc0| 3e 30 20 8c 20 f1 20 22 | 4d 6f 76 65 20 44 69 73 |>0 . . "|Move Dis|
|00001dd0| 63 20 22 3b 64 69 73 63 | 25 3b 22 20 66 72 6f 6d |c ";disc|%;" from|
|00001de0| 20 22 3b 66 72 6f 6d 24 | 3b 22 20 74 6f 20 22 3b | ";from$|;" to ";|
|00001df0| 74 6f 24 3b 22 2e 22 0d | 01 68 30 e7 20 64 69 73 |to$;".".|.h0. dis|
|00001e00| 63 25 3c 3e 30 20 8c 20 | f2 6d 6f 76 65 28 64 69 |c%<>0 . |.move(di|
|00001e10| 73 63 25 2d 31 2c 73 70 | 61 72 65 24 2c 74 6f 24 |sc%-1,sp|are$,to$|
|00001e20| 2c 66 72 6f 6d 24 29 0d | 01 72 05 3a 0d 01 7c 05 |,from$).|.r.:..|.|
|00001e30| e1 0d 01 86 05 3a 0d 01 | 90 0c dd 20 f2 69 6e 74 |.....:..|... .int|
|00001e40| 72 6f 0d 01 9a 05 3a 0d | 01 a4 05 db 0d 01 ae 4b |ro....:.|.......K|
|00001e50| f1 20 22 54 68 65 72 65 | 20 61 72 65 20 74 68 72 |. "There| are thr|
|00001e60| 65 65 20 6e 65 65 64 6c | 65 73 2e 20 20 4f 6e 20 |ee needl|es.  On |
|00001e70| 74 68 65 20 66 69 72 73 | 74 20 6e 65 65 64 6c 65 |the firs|t needle|
|00001e80| 20 69 73 20 61 20 6e 75 | 6d 62 65 72 20 6f 66 20 | is a nu|mber of |
|00001e90| 64 69 73 63 73 2e 22 0d | 01 b8 39 f1 20 22 59 6f |discs.".|..9. "Yo|
|00001ea0| 75 20 6d 75 73 74 20 74 | 72 61 6e 73 66 65 72 20 |u must t|ransfer |
|00001eb0| 74 68 65 20 64 69 73 63 | 73 20 74 6f 20 74 68 65 |the disc|s to the|
|00001ec0| 20 73 65 63 6f 6e 64 20 | 6e 65 65 64 6c 65 2e 22 | second |needle."|
|00001ed0| 0d 01 c2 48 f1 20 22 59 | 6f 75 20 6d 75 73 74 20 |...H. "Y|ou must |
|00001ee0| 6e 6f 74 20 70 75 74 20 | 61 20 6c 6f 77 20 6e 75 |not put |a low nu|
|00001ef0| 6d 62 65 72 20 64 69 73 | 63 20 62 65 6c 6f 77 20 |mber dis|c below |
|00001f00| 6f 6e 65 20 6f 66 20 61 | 20 68 69 67 68 65 72 20 |one of a| higher |
|00001f10| 6e 75 6d 62 65 72 2e 22 | 0d 01 cc 49 f1 20 22 52 |number."|...I. "R|
|00001f20| 75 6e 6e 69 6e 67 20 74 | 68 69 73 20 70 72 6f 67 |unning t|his prog|
|00001f30| 72 61 6d 6d 65 20 67 69 | 76 65 73 20 69 6e 73 74 |ramme gi|ves inst|
|00001f40| 72 75 63 74 69 6f 6e 73 | 20 66 6f 72 20 6d 6f 76 |ructions| for mov|
|00001f50| 69 6e 67 20 74 68 65 20 | 64 69 73 63 73 2e 22 27 |ing the |discs."'|
|00001f60| 27 0d 01 d6 05 3a 0d 01 | e0 05 e1 0d 01 ea 05 3a |'....:..|.......:|
|00001f70| 0d ff 46 69 6c 65 44 61 | 74 61 82 52 6f 77 4e 6f |..FileDa|ta.RowNo|
|00001f80| 00 00 50 ff ff ff 6b 01 | 00 00 46 21 fd ff 36 96 |..P...k.|..F!..6.|
|00001f90| 7d 08 03 00 72 04 5c 43 | 67 73 7c 69 20 22 41 31 |}...r.\C|gs|i "A1|
|00001fa0| 22 20 7c 6d 20 20 20 20 | 20 20 20 20 20 47 6f 20 |" |m    |     Go |
|00001fb0| 74 6f 20 73 6c 6f 74 0a | 5c 45 69 63 7c 6d 20 20 |to slot.|\Eic|m  |
|00001fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |        |       I|
|00001fd0| 6e 73 65 72 74 20 63 6f | 6c 75 6d 6e 0a 5c 45 73 |nsert co|lumn.\Es|
|00001fe0| 63 7c 69 20 22 72 6f 77 | 22 20 7c 6d 20 20 20 20 |c|i "row|" |m    |
|00001ff0| 20 20 20 20 4e 65 77 20 | 73 6c 6f 74 20 63 6f 6e |    New |slot con|
|00002000| 74 65 6e 74 73 0a 5c 5a | 7c 6d 20 20 20 20 20 20 |tents.\Z||m      |
|00002010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 61 72 |        |     Mar|
|00002020| 6b 20 62 6c 6f 63 6b 0a | 5c 43 62 63 7c 6d 20 20 |k block.|\Cbc|m  |
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 42 |        |       B|
|00002040| 6f 74 74 6f 6d 20 6f 66 | 20 63 6f 6c 75 6d 6e 0a |ottom of| column.|
|00002050| 5c 5a 7c 6d 20 20 20 20 | 20 20 20 20 20 20 20 20 |\Z|m    |        |
|00002060| 20 20 20 20 20 20 20 4d | 61 72 6b 20 62 6c 6f 63 |       M|ark bloc|
|00002070| 6b 0a 5c 42 72 64 7c 6d | 20 20 20 20 20 20 20 20 |k.\Brd|m|        |
|00002080| 20 20 20 20 20 20 20 20 | 20 52 65 70 6c 69 63 61 |        | Replica|
|00002090| 74 65 20 64 6f 77 6e 0a | 5c 4c 61 77 7c 6d 20 20 |te down.|\Law|m  |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 |        |       A|
|000020b0| 75 74 6f 20 77 69 64 74 | 68 0a 5c 51 7c 6d 20 20 |uto widt|h.\Q|m  |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020d0| 20 43 6c 65 61 72 20 6d | 61 72 6b 65 72 73 0a 5c | Clear m|arkers.\|
|000020e0| 43 67 73 7c 69 20 22 42 | 31 22 20 7c 6d 20 20 20 |Cgs|i "B|1" |m   |
|000020f0| 20 20 20 20 20 20 47 6f | 20 74 6f 20 73 6c 6f 74 |      Go| to slot|
|00002100| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+